object calculator1: Tcalculator1 Left = 317 Top = 169 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'ProKalc' ClientHeight = 426 ClientWidth = 398 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] KeyPreview = True Scaled = False OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 398 Height = 455 BevelOuter = bvNone BevelWidth = 2 BorderWidth = 2 BorderStyle = bsSingle Color = clTeal Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 object SpeedButton1: TSpeedButton Left = 5 Top = 402 Width = 53 Height = 19 Caption = 'Help' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333 333333333337FF3333333333330003333333333333777F333333333333080333 3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB 33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB 3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333 333333333337F33333333333333B333333333333333733333333} NumGlyphs = 2 OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 5 Top = 402 Width = 53 Height = 19 Hint = 'Enable help function.' Caption = 'Help' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333 333333333337FF3333333333330003333333333333777F333333333333080333 3333333333777F3333333333330003333333333333777F3333333333330F0333 33333333337F7F3333333333330F033333333333337373F33333333330F7F033 333333333737F73F333333330FF7FF03333333337F37F37F333333330FF7FF03 333333337F37337F333333330FFFFF033333333373F333733333333330FFF033 33333333373FF733333333333300033333333333337773333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object AboutButton: TSpeedButton Left = 186 Top = 403 Width = 19 Height = 17 Hint = 'Show "About" screen.' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555000050000005555544F00BFBFBF0555544F0BFBF0000055544F0FBFBFBFB F05544F0BFBF0000000544F0F000FBFBF00544F0B0B000000F000000F0F000FB FB0F555500BFBFBFB0F455555500FBFB0F44555555550000F44455555555550F 4444555555555550044455555555555550045555555555555550} ParentShowHint = False ShowHint = True OnClick = AboutButtonClick end object Panel2: TPanel Left = 4 Top = 56 Width = 173 Height = 343 Color = clGray Ctl3D = True ParentCtl3D = False ParentShowHint = False ShowHint = True TabOrder = 5 object TrigGroupBox: TGroupBox Left = 2 Top = 108 Width = 169 Height = 54 Caption = ' Trig/Hyperbolic functions ' Ctl3D = True Font.Charset = DEFAULT_CHARSET Font.Color = clSilver Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentCtl3D = False ParentFont = False TabOrder = 0 object DegRadPanel: TPanel Left = 4 Top = 32 Width = 35 Height = 18 BevelOuter = bvNone BorderStyle = bsSingle Color = clGray Ctl3D = True ParentCtl3D = False TabOrder = 0 object ButDegRad: TColorButton Left = 2 Top = 0 Width = 27 Height = 13 Hint = 'Switch between degrees, radians, and grads' BevelSize = 1 Caption = 'Deg' Color = clNavy Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Spacing = 1 Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 0 TabStop = True OnClick = ButDegRadClick end end object ButSin: TColorButton Left = 42 Top = 34 Width = 40 Height = 16 Hint = 'Calculate sine or sinh' BevelSize = 1 Caption = 'Sin' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 1 TabStop = True OnClick = ButSinClick end object ButCos: TColorButton Left = 84 Top = 34 Width = 40 Height = 16 Hint = 'Calculate cosine or cosh' BevelSize = 1 Caption = 'Cos' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 2 TabStop = True OnClick = ButCosClick end object ButTan: TColorButton Left = 126 Top = 34 Width = 40 Height = 16 Hint = 'Calculate tangent or tanh' BevelSize = 1 Caption = 'Tan' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 3 TabStop = True OnClick = ButTanClick end object ButTrigType: TColorButton Left = 6 Top = 15 Width = 34 Height = 16 Hint = 'Switch between trigonometric and hyperbolic calculation mode' BevelSize = 1 Caption = 'Type' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 4 TabStop = True OnClick = ButTrigTypeClick end object ButarcSin: TColorButton Left = 42 Top = 15 Width = 40 Height = 16 Hint = 'Calculate arcSine or arcSinh' BevelSize = 1 Caption = 'aSin' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 5 TabStop = True OnClick = ButarcSinClick end object ButArcCos: TColorButton Left = 84 Top = 15 Width = 40 Height = 16 Hint = 'Calculate arcCosine or arcCosh' BevelSize = 1 Caption = 'aCos' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 6 TabStop = True OnClick = ButArcCosClick end object ButArcTan: TColorButton Left = 126 Top = 15 Width = 40 Height = 16 Hint = 'Calculate arcTangent or arcTanh' BevelSize = 1 Caption = 'aTan' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 7 TabStop = True OnClick = ButArcTanClick end end object FinancialGroupBox: TGroupBox Left = 2 Top = 1 Width = 169 Height = 72 Caption = ' Financial ' Font.Charset = DEFAULT_CHARSET Font.Color = clSilver Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 object CurrencyBut: TColorButton Left = 6 Top = 14 Width = 55 Height = 16 Hint = 'Display currency module' BevelSize = 1 Caption = 'Currency' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 0 TabStop = True OnClick = CurrencyButClick end object LoanBut: TColorButton Left = 64 Top = 14 Width = 40 Height = 16 Hint = 'Display loan module' BevelSize = 1 Caption = 'Loan' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 1 TabStop = True OnClick = LoanButClick end object DividendBut: TColorButton Left = 108 Top = 14 Width = 55 Height = 16 Hint = 'Display dividend module' BevelSize = 1 Caption = 'Dividend' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 2 TabStop = True OnClick = DividendButClick end object FinancialBut: TColorButton Left = 6 Top = 33 Width = 55 Height = 16 Hint = 'Display financial module' BevelSize = 1 Caption = 'Financial' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 3 TabStop = True OnClick = FinancialButClick end object ProfitLossBut: TColorButton Left = 64 Top = 33 Width = 40 Height = 16 Hint = 'Display profit/loss module' BevelSize = 1 Caption = 'P/L' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 4 TabStop = True OnClick = ProfitLossButClick end object InterestBut: TColorButton Left = 108 Top = 33 Width = 55 Height = 16 Hint = 'Display interest module' BevelSize = 1 Caption = 'Interest' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 5 TabStop = True OnClick = InterestButClick end object InvestBut: TColorButton Left = 58 Top = 52 Width = 55 Height = 16 Hint = 'Display investment module' BevelSize = 1 Caption = 'Investment' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 6 TabStop = True OnClick = InvestButClick end end object GeometryGroupBox: TGroupBox Left = 2 Top = 73 Width = 169 Height = 33 Caption = ' Geometry ' Font.Charset = DEFAULT_CHARSET Font.Color = clSilver Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 object AreaBut: TColorButton Left = 5 Top = 12 Width = 52 Height = 16 Hint = 'Display area calculation notebook' BevelSize = 1 Caption = 'Area' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 0 TabStop = True OnClick = AreaButClick end object VolumeBut: TColorButton Left = 59 Top = 12 Width = 52 Height = 16 Hint = 'Display volume calculation notebook' BevelSize = 1 Caption = 'Volume' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 1 TabStop = True OnClick = VolumeButClick end object SurfaceAreaBut: TColorButton Left = 113 Top = 12 Width = 52 Height = 16 Hint = 'Display surface area calculation notebook' BevelSize = 1 Caption = 'Surface' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 2 TabStop = True OnClick = SurfaceAreaButClick end end object But0: TColorButton Left = 4 Top = 321 Width = 39 Height = 20 BevelSize = 1 Caption = '0' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 3 TabStop = True OnClick = But0Click end object But1: TColorButton Left = 4 Top = 298 Width = 39 Height = 20 BevelSize = 1 Caption = '1' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 4 TabStop = True OnClick = But0Click end object But2: TColorButton Left = 46 Top = 298 Width = 39 Height = 20 BevelSize = 1 Caption = '2' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 5 TabStop = True OnClick = But0Click end object But3: TColorButton Left = 88 Top = 298 Width = 39 Height = 20 BevelSize = 1 Caption = '3' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 6 TabStop = True OnClick = But0Click end object But4: TColorButton Left = 4 Top = 275 Width = 39 Height = 20 BevelSize = 1 Caption = '4' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 7 TabStop = True OnClick = But0Click end object But5: TColorButton Left = 46 Top = 275 Width = 39 Height = 20 BevelSize = 1 Caption = '5' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 8 TabStop = True OnClick = But0Click end object But6: TColorButton Left = 88 Top = 275 Width = 39 Height = 20 BevelSize = 1 Caption = '6' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 9 TabStop = True OnClick = But0Click end object But7: TColorButton Left = 4 Top = 252 Width = 39 Height = 20 BevelSize = 1 Caption = '7' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 10 TabStop = True OnClick = But0Click end object But8: TColorButton Left = 46 Top = 252 Width = 39 Height = 20 BevelSize = 1 Caption = '8' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 11 TabStop = True OnClick = But0Click end object But9: TColorButton Left = 88 Top = 252 Width = 39 Height = 20 BevelSize = 1 Caption = '9' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 12 TabStop = True OnClick = But0Click end object ButDot: TColorButton Left = 46 Top = 321 Width = 39 Height = 20 BevelSize = 1 Caption = '.' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 13 TabStop = True OnClick = ButDotClick end object ButPlusMinus: TColorButton Left = 88 Top = 321 Width = 39 Height = 20 BevelSize = 1 Caption = '+/-' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 14 TabStop = True OnClick = ButPlusMinusClick end object ButPlus: TColorButton Left = 130 Top = 321 Width = 39 Height = 20 BevelSize = 1 Caption = '+' Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 15 TabStop = True OnClick = ButPlusClick end object ButMinus: TColorButton Left = 130 Top = 298 Width = 39 Height = 20 BevelSize = 1 Caption = '-' Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 16 TabStop = True OnClick = ButMinusClick end object ButMultiply: TColorButton Left = 130 Top = 275 Width = 39 Height = 20 BevelSize = 1 Caption = 'X' Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 17 TabStop = True OnClick = ButMultiplyClick end object ButDivide: TColorButton Left = 130 Top = 252 Width = 39 Height = 20 BevelSize = 1 Caption = '�' Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -19 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 18 TabStop = True OnClick = ButDivideClick end object ButStore: TColorButton Left = 4 Top = 231 Width = 31 Height = 18 Hint = 'Store displayed value to memory location' BevelSize = 1 Caption = '&Sto' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 19 TabStop = True OnClick = ButStoreClick end object ButRecall: TColorButton Left = 37 Top = 231 Width = 31 Height = 18 Hint = 'Recall value from memory location' BevelSize = 1 Caption = '&Rec' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 20 TabStop = True OnClick = ButRecallClick end object ButOneOverX: TColorButton Left = 70 Top = 231 Width = 31 Height = 18 Hint = 'Calculate reciprocal' BevelSize = 1 Caption = '1/x' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 21 TabStop = True OnClick = ButOneOverXClick end object ButPercent: TColorButton Left = 103 Top = 231 Width = 31 Height = 18 Hint = 'Calculate percent' BevelSize = 1 Caption = '&%' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 22 TabStop = True OnClick = ButPercentClick end object EPlusBut: TColorButton Left = 136 Top = 231 Width = 33 Height = 18 Hint = 'Enter exponential value' BevelSize = 1 Caption = 'E+' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 23 TabStop = True OnClick = EPlusButClick end object ButFactorial: TColorButton Left = 4 Top = 210 Width = 31 Height = 18 Hint = 'Calculate factorial' BevelSize = 1 Caption = 'n&!' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 24 TabStop = True OnClick = ButFactorialClick end object ButLn: TColorButton Left = 37 Top = 210 Width = 31 Height = 18 Hint = 'Calculate natural logrithm' BevelSize = 1 Caption = 'L&n' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 25 TabStop = True OnClick = ButLnClick end object ButSquare: TColorButton Left = 70 Top = 210 Width = 31 Height = 18 Hint = 'Calculate square' BevelSize = 1 Caption = '&x�' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 26 TabStop = True OnClick = ButSquareClick end object ButAbsolute: TColorButton Left = 103 Top = 210 Width = 31 Height = 18 Hint = 'Calculate absolute value' BevelSize = 1 Caption = '&|x|' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 27 TabStop = True OnClick = ButAbsoluteClick end object EMinusBut: TColorButton Left = 136 Top = 210 Width = 33 Height = 18 Hint = 'Enter exponential value' BevelSize = 1 Caption = 'E-' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 28 TabStop = True OnClick = EMinusButClick end object ButPi: TColorButton Left = 4 Top = 189 Width = 39 Height = 18 Hint = 'Display pi' BevelSize = 1 Caption = 'P&i' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 29 TabStop = True OnClick = ButPiClick end object ButLog: TColorButton Left = 46 Top = 189 Width = 39 Height = 18 Hint = 'Calculate logrithm' BevelSize = 1 Caption = '&Log' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 30 TabStop = True OnClick = ButLogClick end object ButXtoY: TColorButton Left = 88 Top = 189 Width = 39 Height = 18 Hint = 'Calculate x to the y power' BevelSize = 1 Caption = 'x&^y' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 31 TabStop = True OnClick = ButXtoYClick end object ButRoot: TColorButton Left = 46 Top = 168 Width = 39 Height = 18 Hint = 'Calculate nth root of value' BevelSize = 1 Caption = 'R&oot' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 32 TabStop = True OnClick = ButRootClick end object ButHypot: TColorButton Left = 4 Top = 168 Width = 39 Height = 18 Hint = 'Calculate hypotnuese or rt. triangle given two sides' BevelSize = 1 Caption = '&Hypot' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 33 TabStop = True OnClick = ButHypotClick end object ButSquareRoot: TColorButton Left = 130 Top = 189 Width = 39 Height = 18 Hint = 'Calculate square root of value' BevelSize = 1 Caption = 'S&qrt' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 34 TabStop = True OnClick = ButSquareRootClick end object ButPerm: TColorButton Left = 88 Top = 168 Width = 39 Height = 18 Hint = 'Calculate permutations' BevelSize = 1 Caption = '&Perm' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 35 TabStop = True OnClick = ButPermClick end object ButComb: TColorButton Left = 130 Top = 168 Width = 39 Height = 18 Hint = 'Calculate combinations' BevelSize = 1 Caption = 'Co&mb' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 36 TabStop = True OnClick = ButCombClick end end object display: TMemo Left = 6 Top = 4 Width = 171 Height = 25 TabStop = False Alignment = taRightJustify Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] Lines.Strings = ( '') ParentFont = False ReadOnly = True TabOrder = 3 end object ButtonClearTape: TButton Left = 214 Top = 402 Width = 51 Height = 20 Hint = 'Clear the tape.' Caption = 'CT' ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = ButtonClearTapeClick end object Tape: TMemo Left = 180 Top = 4 Width = 209 Height = 393 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'System' Font.Style = [fsBold] HideSelection = False ParentFont = False ReadOnly = True ScrollBars = ssVertical TabOrder = 1 WantReturns = False end object ButtonPrint: TButton Left = 276 Top = 402 Width = 51 Height = 20 Hint = 'Print the tape.' Caption = 'Pr&int' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = ButtonPrintClick end object TempMemo: TMemo Left = 180 Top = 374 Width = 193 Height = 23 TabStop = False TabOrder = 7 Visible = False end object ButtonCopy: TButton Left = 337 Top = 402 Width = 51 Height = 20 Hint = 'Copy tape to clipboard and file.' Caption = 'Cop&y' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = ButtonCopyClick end object PrintRegisterMemo: TMemo Left = -46 Top = -22 Width = 680 Height = 27 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] Lines.Strings = ( ' ' + ' ProKalc' ' The Scientific/Financial/G' + 'eometry Calculator' ' ' + 'Version 6.3' ' ' + 'Order Form' '' ' Return to: Harold Sc' + 'hwartz' #9' P.O. Box 104482' #9' Jefferson City, MO' + ' 65110' '' 'NAME____________________________________________________________' + '______' '' 'ADDRESS_________________________________________________________' + '______' '' '________________________________________________________________' + '_______' '' '___________________________________________________ZIP__________' + '________' '' ' ' '"ProKalc" Version 6.3 QUANTITY T' + 'OTAL' ' (includes latest version) . . .________ . . X $16.00 .. . ____' + '______' ' Shipping/Handling (per order) . . . . . .' + ' . . .____$3.00_' ' Grand Total . . . . . . . . . . . . . .' + ' . . . . . . . __________' '' '' ' Indicate registration name for each copy of ProKalc ordered:' ' (40 characters maximum, including spaces)' '' ' PLEASE PRINT CLEARLY' '' 'Copy No. 1) ____________________________________________________' + '_____' '' 'Copy No. 2) ____________________________________________________' + '_____' '' 'Copy No. 3) ____________________________________________________' + '_____' '' 'TERMS: All payments must be in U.S. funds. Check or Money Order ' 'acceptable. Personal checks may be subject to bank clearance bef' + 'ore ' 'shipment. Shipments outside the U.S. include $4.00 shipping and' + ' ' 'handling.' '' 'FOR SECURE CREDIT CARD ORDERS AND FOR ADDITIONAL ' 'INFORMATION, VISIT THE ShowMe Software WEB SITE AT:' '' ' http://members.sockets.net/~schwartz' '' ' Where did you get "ProKalc"___________________________________' + '___') ParentFont = False TabOrder = 6 Visible = False end object ClearMemBut: TColorButton Left = 64 Top = 402 Width = 53 Height = 19 Hint = 'Clear all memory locations' BevelSize = 1 Caption = 'Clr Mem' Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 8 TabStop = True OnClick = ClearMemButClick end object ButtonEnte: TColorButton Left = 124 Top = 402 Width = 53 Height = 19 BevelSize = 1 Caption = '=' Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 9 TabStop = True OnClick = ButtonEnteClick end object HintBut: TColorButton Left = 72 Top = 32 Width = 35 Height = 21 Hint = 'Turn hint feature on/off' BevelSize = 1 Caption = 'Hint' Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 10 TabStop = True OnClick = HintButClick end object PlacesBut: TColorButton Left = 44 Top = 32 Width = 25 Height = 21 Hint = 'Switch between scientific and financial display' BevelSize = 1 Caption = 'Sci' Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 11 TabStop = True OnClick = PlacesButClick end object ButClear: TColorButton Left = 110 Top = 32 Width = 35 Height = 21 Hint = 'Clear the display/Clear calculator' BevelSize = 1 Caption = 'CE/C' Color = clGreen Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 12 TabStop = True OnClick = ButClearClick end object ButOff: TColorButton Left = 148 Top = 32 Width = 29 Height = 21 BevelSize = 1 Caption = 'OFF' Color = clRed Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 13 TabStop = True OnClick = ButOffClick end object TapeBut: TColorButton Left = 6 Top = 32 Width = 35 Height = 21 Hint = 'Show/Hide the calculator tape' BevelSize = 1 Caption = 'Tape' Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Style = [bsCenter, bsShowFocus, bsShowKey] TabOrder = 14 TabStop = True OnClick = TapeButClick end end object PrintTapeDialog: TPrintDialog Copies = 1 Options = [poPrintToFile, poSelection] PrintToFile = True Left = 345 Top = 11 end end